home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ WinNT AutoShares 1.xpl < prev    next >
Text File  |  2002-10-31  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Network\Security\Shares"
  5. "UIPATH 2"="Program Options\Other Programs\Nero Burning ROM"
  6. "NAME"="CD-ROM/Floppy Shares Access"
  7. "VERSION"="1.50"
  8. "OSVERSION"="010101"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Deactivate CD-ROM shares when logged on"
  11. "TEXT 2"="Deactivate floppy shares when logged on"
  12. "DESCRIPTION 1"="These options control what should happen with CD-ROM and floppy shares when a user logs on."
  13. "DESCRIPTION 2"="By default, all shares on a machine are still accessible when a user logs on."
  14. "DESCRIPTION 3"="If the options are activated, the shares are deactivated while a user is logged on. After this user logs off, the shares are activated again."
  15. "DESCRIPTION 4"="For NERO users: To allow non-admin users to burn CD-ROMs also, activate the first option."
  16. "DESCRIPTION 5"="IMPORTANT: It can happen that the Windows Installer Service (e.g. for Microsoft Office) does no longer allow you to install software if the first option is activated. Deactive this option in this case."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to Alex Morris (alexmorris@uk.ibm.com) for his help!"
  21. "COMMENT 2"="Thanks to PJ [pj@sysman.open4free.co.uk] for the Nero tip!"
  22.  
  23. sp="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"
  24. sV1="AllocateCDRoms"
  25. sV2="AllocateFloppies"
  26.  
  27. Sub Plugin_Initialize 
  28.   i=RegReadValue(sP&sV1)
  29.   if IsEmpty(i)=false then
  30.    if i=1 then Call SetUIElement(1,true)
  31.   end if
  32.  
  33.   i=RegReadValue(sP&sV2)
  34.   if IsEmpty(i)=false then
  35.    if i=1 then Call SetUIElement(2,true)
  36.   end if
  37.  
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  b=GetUIElement(1)
  45.  if b=true then
  46.    Call RegWriteValue(sP&sV1,"1",1)
  47.  else
  48.    Call RegWriteValue(sP&sV1,"0",1)
  49.  end if
  50.  
  51.  b=GetUIElement(2)
  52.  if b=true then
  53.    Call RegWriteValue(sP&sV2,"1",1)
  54.  else
  55.    Call RegWriteValue(sP&sV2,"0",1)
  56.  end if
  57.  
  58.  Restart
  59. End Sub
  60.  
  61.  
  62. Sub Plugin_Terminate 
  63. End Sub
  64.  
  65.  
  66.  
  67.